!c------------- Physical Constants ------------------------
!c     Initialize constants the gas constant, and the
!c     Stefan-Bolzmann constant

!c      rgas=8.314
!      rgas=8.31
!c     stef [kW m-2 K-4]
!      stef=5.6697e-11
!c---------------------------------------------------------
    MODULE Constants
    IMPLICIT NONE
    
    !PRIVATE 
    SAVE
     
      REAL, PARAMETER :: Pi =3.141592654
      REAL, parameter :: rgas = 8.31
      DOUBLE precision, parameter :: stef=5.6697e-11

    END MODULE Constants

